COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE LINES(A,B,J,I,IT,L,LD)
C00006 ENDMK
C⊗;
	SUBROUTINE LINES(A,B,J,I,IT,L,LD)
	M=A
	N=B
	IF(IT.LT.11)GO TO 41
	M=B
	N=A
	IF(L.AND.N.NE.LY)J=3
11	IF(.NOT.I)GO TO 2
	IF(J.EQ.3)GO TO 1
	CALL AVECT(M,N)
	RETURN
1	CALL AIVECT(M,N)
	RETURN
41	IF(L.AND.M.NE.LX)J=3
	GO TO 11
2	IF(J.EQ.3.OR..NOT.LD)GO TO 42

	NI=2
	IF(IT.GT.10)GO TO 44
	MI=IT*1.3
	IF(LY.LT.N)GO TO 46
	MI=-MI
	NI=-NI
46	MD=MI
	IF(J.EQ.4)J=2
	IF(J.EQ.2)MD=NI
	LY=LY+MD
	IF(MI.AND.LY.LT.N)GO TO 42
	IF(.NOT.MI.AND.LY.GT.N)GO TO 42
47	CALL PLOT(LX,LY,J)
	J=J+1
	IF(IT.GT.10)GO TO 43
	GO TO 46
44	MI=(IT-10)*1.3
	IF(LX.LT.M)GO TO 43
	MI=-MI
	NI=-NI
43	MD=MI
	IF(J.EQ.4)J=2
	IF(J.EQ.2)MD=NI
	LX=LX+MD
	IF(MI.AND.LX.LT.M)GO TO 42
	IF(.NOT.MI.AND.LX.GT.M)GO TO 42
	GO TO 47
42	CALL PLOT(M,N,J)
	LX=M
	LY=N
	END